home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModelessRadiosData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  2.5 KB  |  163 lines  |  [TEXT/CWIE]
  1. { DModelessRadiosData.p -- data container class for Everything}
  2.  
  3. Unit DModelessRadiosData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idRadioGroup3        = longint ('Rad3');
  15.     idGroup3        = longint ('Gro3');
  16.     idGraphic5        = longint ('Gra5');
  17.     idBevel3        = longint ('Bev3');
  18.     idText3        = longint ('Tex5');
  19.  
  20. type
  21.     {----------}
  22.     DModelessRadiosData    = object (AMSignaler)
  23.  
  24.     {data members}
  25.         mRadioGroup3:        SInt16;
  26.         mGroup3:        SInt16;
  27.         mGraphic5:        SInt16;
  28.         mBevel3:        SInt16;
  29.         mText3:        SInt16;
  30.  
  31.     {methods}
  32.         Procedure Initialize; Override;
  33.  
  34.         Function  GetRadioGroup3: SInt16;
  35.         Procedure SetRadioGroup3    (inValue:        SInt16);
  36.         Function  GetGroup3: SInt16;
  37.         Procedure SetGroup3    (inValue:        SInt16);
  38.         Function  GetGraphic5: SInt16;
  39.         Procedure SetGraphic5    (inValue:        SInt16);
  40.         Function  GetBevel3: SInt16;
  41.         Procedure SetBevel3    (inValue:        SInt16);
  42.         Function  GetText3: SInt16;
  43.         Procedure SetText3    (inValue:        SInt16);
  44.     end;
  45.  
  46. {----------}
  47. Function NewDModelessRadiosData: DModelessRadiosData;
  48.  
  49. {----------}
  50. Implementation
  51.  
  52. {----------}
  53. Function NewDModelessRadiosData: DModelessRadiosData;
  54. var
  55.     data:        DModelessRadiosData;
  56. begin
  57.     data := nil;
  58.     New (data);
  59.     if data <> nil then begin
  60.         data.Initialize;
  61.     end;
  62.     NewDModelessRadiosData := data;
  63. end;
  64.  
  65. {----------}
  66. Procedure DModelessRadiosData.Initialize;
  67. begin
  68.     inherited Initialize;
  69.  
  70.     mRadioGroup3 := 0;
  71.     mGroup3 := 0;
  72.     mGraphic5 := 0;
  73.     mBevel3 := 0;
  74.     mText3 := 0;
  75. end;
  76.  
  77. {----------}
  78. Function DModelessRadiosData.GetRadioGroup3: SInt16;
  79. begin
  80.     GetRadioGroup3 := mRadioGroup3;
  81.  
  82.  
  83. end;
  84.  
  85. Procedure DModelessRadiosData.SetRadioGroup3 (
  86.     inValue:        SInt16);
  87. begin
  88.     mRadioGroup3 := inValue;
  89.  
  90.  
  91.     SignalDataChanged (idRadioGroup3);
  92. end;
  93.  
  94. {----------}
  95. Function DModelessRadiosData.GetGroup3: SInt16;
  96. begin
  97.     GetGroup3 := mGroup3;
  98.  
  99.  
  100. end;
  101.  
  102. Procedure DModelessRadiosData.SetGroup3 (
  103.     inValue:        SInt16);
  104. begin
  105.     mGroup3 := inValue;
  106.  
  107.  
  108.     SignalDataChanged (idGroup3);
  109. end;
  110.  
  111. {----------}
  112. Function DModelessRadiosData.GetGraphic5: SInt16;
  113. begin
  114.     GetGraphic5 := mGraphic5;
  115.  
  116.  
  117. end;
  118.  
  119. Procedure DModelessRadiosData.SetGraphic5 (
  120.     inValue:        SInt16);
  121. begin
  122.     mGraphic5 := inValue;
  123.  
  124.  
  125.     SignalDataChanged (idGraphic5);
  126. end;
  127.  
  128. {----------}
  129. Function DModelessRadiosData.GetBevel3: SInt16;
  130. begin
  131.     GetBevel3 := mBevel3;
  132.  
  133.  
  134. end;
  135.  
  136. Procedure DModelessRadiosData.SetBevel3 (
  137.     inValue:        SInt16);
  138. begin
  139.     mBevel3 := inValue;
  140.  
  141.  
  142.     SignalDataChanged (idBevel3);
  143. end;
  144.  
  145. {----------}
  146. Function DModelessRadiosData.GetText3: SInt16;
  147. begin
  148.     GetText3 := mText3;
  149.  
  150.  
  151. end;
  152.  
  153. Procedure DModelessRadiosData.SetText3 (
  154.     inValue:        SInt16);
  155. begin
  156.     mText3 := inValue;
  157.  
  158.  
  159.     SignalDataChanged (idText3);
  160. end;
  161.  
  162. end.
  163.